Proceso programa
//res<-1;
//Mientras res = 1 Hacer
	res<-"si";
Mientras res = "si" Hacer
	Escribir "1.- ECONOMIA";
	Escribir "2.- COMPUTACION";
	Escribir "3.- ADMINISTRACION";
	Escribir "4.- CONTABILIDAD";
	Escribir "INGRESA EL NUMERO DE TU CARRERA ";
	Leer CARR;
	Escribir "INGRESA TU MATRICULA";
	Leer MAT;
	Escribir "INGRESA SEMESTRE: ";
	Leer SEM;
	Escribir "INGRESA TU PROMEDIO";
	Leer PROM;
		Segun CARR  Hacer
		CARR 1:
			si SEM > 6 Y PROM > 8.8 Entonces
				Escribir "ESTAS ACEPTADO CON NUMERO DE MATRICULA " , MAT , " Y CARRERA ECONOMIA"; 
			FinSi
		CARR 2:
			si SEM > 6 Y PROM > 8.5 Entonces
				Escribir "ESTAS ACEPTADO CON NUMERO DE MATRICULA " , MAT , " Y CARRERA COMPUTACION"; 
			FinSi
			CARR 3:
			si SEM > 5 Y PROM > 8.5 Entonces
				Escribir "ESTAS ACEPTADO CON NUMERO DE MATRICULA " , MAT , " Y CARRERA ADMINISTRACION"; 
			FinSi
			CARR 4:
			si SEM > 5 Y PROM > 8.5 Entonces
				Escribir "ESTAS ACEPTADO CON NUMERO DE MATRICULA " , MAT , " Y CARRERA CONTAILIDAD"; 
			FinSi
		De Otro Modo:
			Escribir "*************OPCION DE CARRERA NO VALIDO COMIENZE DE NUEVO  *************";
	FinSegun
	Escribir "Deseas calcular otra vez";
	Leer res;
	
FinMientras
	
	
FinProceso
